Assignment: R Markdown Presentation & Plotly

Gapminder data

library(gapminder)

data(gapminder)
head(gapminder)

Animation with ggplotly

library("ggplot2")
library("plotly")

Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
Registered S3 methods overwritten by 'htmltools':
  method               from         
  print.html           tools:rstudio
  print.shiny.tag      tools:rstudio
  print.shiny.tag.list tools:rstudio
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

gg <- ggplot(gapminder, aes(gdpPercap, lifeExp, color = continent)) +
    geom_point(aes( size = pop,
                    frame = year,
                    ids = country,
                    alpha = 0.3)) + 
    scale_x_log10(labels = scales::dollar_format())

Warning: Ignoring unknown aesthetics: frame and ids

ggplotly(gg)